From 68c57458eb3be06b7ff3201799547417329c3d92 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 11 Sep 2002 09:31:55 +0000 Subject: [PATCH] (uncomment-region): Fix let/let* use. --- lisp/newcomment.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 01cf5bdaa86..51dd4c5c20e 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -622,22 +622,22 @@ comment markers." (save-excursion (goto-char beg) (setq end (copy-marker end)) - (let ((numarg (prefix-numeric-value arg)) - (ccs comment-continue) - (srei (comment-padright ccs 're)) - (sre (and srei (concat "^\\s-*?\\(" srei "\\)"))) - spt) + (let* ((numarg (prefix-numeric-value arg)) + (ccs comment-continue) + (srei (comment-padright ccs 're)) + (sre (and srei (concat "^\\s-*?\\(" srei "\\)"))) + spt) (while (and (< (point) end) (setq spt (comment-search-forward end t))) - (let* ((ipt (point)) - ;; Find the end of the comment. - (ept (progn - (goto-char spt) - (unless (comment-forward) - (error "Can't find the comment end")) - (point))) - (box nil) - (box-equal nil)) ;Whether we might be using `=' for boxes. + (let ((ipt (point)) + ;; Find the end of the comment. + (ept (progn + (goto-char spt) + (unless (comment-forward) + (error "Can't find the comment end")) + (point))) + (box nil) + (box-equal nil)) ;Whether we might be using `=' for boxes. (save-restriction (narrow-to-region spt ept) -- 2.30.2